home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 2 #1
/
Commodore_Disk_User_Vol.2_1_1988_-.d64
/
windows 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
891b
|
30 lines
10 rem*****************************
20 rem
30 rem windows 64 demo
40 rem
50 rem*****************************
60 rem
90 poke 53281,6
100 print "[147]":print
110 print " windows 64 demo"
120 print:print " to run this demo, you must first"
130 print:print " enter the following commands:"
140 print "[144]":print "load 'window1',8,1 (compiler core)"
150 print:print "[144]sys 64738 (reset)"
160 print:print "[144]load 'window2',8,1 (window routine)"
170 print:print "[144]poke 44,32:poke 8192,0(raise basic)"
180 print:print "[144]load 'windows 64',8 (demo)"
185 print:print "[144]run"
190 print:print "do you wish to proceed with demo?"
195 get a$:if a$=""then 195
197 if a$<>"y" then end
200 print "[147]":poke 12500,10
210 poke 12501,6
220 poke 12502,10
230 poke 12503,5
240 poke 12504,asc("h")
250 poke 12505,asc("i")
260 poke 12506,asc("!")
270 poke 12507,95
280 sys 2117:end